perm filename MACROS[SYS,HE]3 blob
sn#034512 filedate 1973-04-12 generic text, type T, neo UTF8
00100 :DEFINE EDGLOAD $
00200 EDG:LOGIN SYS,HE
00300 :COMP EDGE,MISEDG,CONTRL,SCANER,INNER
00400 EDG;R LOADER
00500 EDG;GLBLOW[1,3],$1
00550 CONTRL /G
00600 SAVE DSK EDGE
00700
00800 :DEFINE CURLOAD $
00900 CUR:LOGIN SYS,HE
01000 :COMP CURVE,MISCUR
01100 CUR;R LOADER
01200 CUR;GLBLOW[1,3],$1CURVE/G
01300 SAVE DSK CURVE
01400
02200 :DEFINE CAMLOAD $
02300 CAM:LOGIN SYS,HE
02400 :COMP CAMERA
02500 CAM;R LOADER
02600 CAM;GLBLOW[1,3],$1CAMERA /G
02700 SAVE DSK CAMERA
02800
02900 :DEFINE DRVLOAD $
03000 DRV:LOGIN SYS,HE
03100 :COMP IIDRV
03200 DRV;R LOADER
03300 DRV;GLBLOW[1,3],$1IIDRV/G
03400 SAVE DSK IIDRV
03500
03600 :DEFINE SIMLOAD $
03700 SIM:LOG SYS,HE
03800 :COMP SIMPLE,SIMAUX
03900 SIM;R LOADER
04000 SIM;GLBLOW[1,3],$1SIMPLE/G
04100 SAVE DSK SIMPLE
04200
04300 :DEFINE COLLOAD $
04400 COL:LOG SYS,HE
04500 :COMP COLOR
04600 COL;R LOADER
04700 COL;GLBLOW[1,3],$1COLOR /G
04800 SAVE DSK COLOR
04900
05000 :DEFINE ARMLOAD $
05100 HAND:LOG SYS,HE
05200 :COMP HAND
05300 HAND;R LOADER
05400 HAND;GLBLOW[1,3],$1HAND /G
05500 HAND;SAVE DSK HAND
05600 MOVE:LOG SYS,HE
05700 :COMP MOVE
05800 MOVE;R LOADER
05900 MOVE;GLBLOW[1,3],$1MOVE /G
06000 MOVE;SAVE DSK MOVE
06100
06200 :DEFINE VERLOAD $
06300 VER:LOG SYS,HE
06400 :COMP VERIFY
06500 VER;R LOADER
06600 VER;GLBLOW[1,3],$1VERIFY/G
06700 SAVE DSK VERIFY
06800
06900 :DEFINE FOCLOAD $
07000 FOC:LOG SYS,HE
07100 :COMP GILFOC
07200 FOC;R LOADER
07300 FOC;GLBLOW[1,3],$1GILFOC/G
07400 SAVE DSK GILFOC
07500
07600 :DEFINE EYELOAD $
07700 EYE:LOG SYS,HE
07800 :COMP GILEYE(5000S)
07900 EYE;R LOADER
08000 GLBLOW[1,3],$1GILEYE/G
08100 SAVE GILEYE
08200
08300 :DEFINE AFDLOAD $
08400 AFD:LOG SYS,HE
08500 :COMP AFD
08600 AFD;R LOADER
08700 GLBLOW[1,3],$1AFD/G
08800 SAVE AFD
08900
09000 :DEFINE STKLOAD $
09100 STK:LOG SYS,HE
09200 :COMP STKDRV(5000S)
09300 STK;R LOADER
09400 GLBLOW[1,3],$1STKDRV/G
09500 SAVE STKDRV
09600
09700 :DEFINE CALLOAD $
09800 CAL:LOG SYS,HE
09900 :COMP CALDRV(5000S)
10000 CAL;R LOADER
10100 GLBLOW[1,3],$1CALDRV/G
10200 SAVE CALDRV
10300
10400 :DEFINE ALLLOAD π
10500 :DRVLOAD π1
10600 :ARMLOAD π1
10700 :EDGLOAD π1
10800 :CAMLOAD π1
10900 :SIMLOAD π1
11000 :COLLOAD π1
11100 :CURLOAD π1
11200 :VERLOAD π1
11300 :AFDLOAD π1
11400 :FOCLOAD π1
11500 :EYELOAD π1
11600 :CALLOAD π1
11700 :STKLOAD π1
11800